Dk » 


RAS ds x x x XKkkk KHE KEXHKKEK HHAHX 
B: x x x * x x x x x 

x x x x * x x x x 
“ x x x x XEFH% x *EAKE 
x. x x x x * * x x x 
& EA x * * x x x x 
EIXTS HE CkKKEX KXLHK EXEEE KEKEFKK *HKH% 


NUMERO ZERO -30/SETEMERO- 1952 


COORDENADORES : maria Irene E alberto fernandez 
Ave PURVISTA-GZ2 2. To g100 PORTO 


Hoje, dia 30 de Setembro de 1982, será expedido o primeiro 
boletim que irá teniar ligar os utilizadores de micro-compu= 
tadores, a um pequeno núcleo de entusiastas da micro-informá- 
ticas 

A LOG dá o pontapé de saida, importa agora que aqueles a quem 


a publicação se destina, agarrcm a ideia e a desenvolvam. 


O Clube está aberto a todos os possuidores de micro-computadores, 
e muito em especial aos utilizadores do ZX 81, que é a máquina 


mais expandida em Portugal. a 
A intenção de associar estas pessoas, tem de ser exclusivamente : 


l - Desenvolver e aperfeiçoar o interesse das pessoas pela 
micro-informática. 

2 - Possibilitar a troca de experiências pessoais, no uso dos 
microcomputadores. 

3 - Servir de suporte a projectos interessantes de pequenas 

ou grandes alterações que possam ser introduzidas no uso destas 


máquinas. 


SE CONHECER OUTRO AMIGO POSSUIDOR DE MICRO-COMPUIADOR, DIVULGUE 
ESTA IDEIA, TRANSMITA-NOS O ENDEREÇO DO SEU AMIGO. 


Para que o clube tenha a sua própria estrutura, necessita de 


possuir meios econóricos, por isso não se esqueça de recortar 
o cupão inserido na ultima página e de o devolver para este 
ponto de encontro : Av. da Boavista, 832 - 22 T 4100 PORTO 


x 


O “MUNDO DOS MICROS 


Neste momento existem em Portugal cerca de 3 000 miícrocomputadores ZX81 
(400 000 unídades vendidas mundialmente). 


Muitos dos seus possuidores estarão a trabalhar regularmente com a máquinas Ou 
tros, desistiram rapidamente de a usare Porquê? 


Esta é uma das questões mais importantes que se colocam a quem tem de defron- 
tar diariamente a interrogação: - Que máquina devo comprar? A maís econômica? 


A mais robusta? A mais moderna? A que possuí melhores características? 


O possuídor de um microcomputador sabe que hoje a evolução tecnológica transpor 
ta, diariamente, para os sectores comerciais, equipamentos desenvolvidos nou= 


tras áreas, e que possuem sempre vantagens em relação às máquinas anteriorese 


Se aguardar pela última máquina, para se iniciar na informática, ou para se di- 
vertir com os jogos fabulosos que a imaginação está sempre a criar, arrisca-se 
a não adquirir a experiencia, que só o manejo e o defrontar da máquina nos proe 


porcioname 


Desta forma, é sempre possível situar a máquina dentro do campo específico em 


qua a queremos usares 


Pensar que a máquina A ou B é um "faz tudo” e que essa é a áltima maravilha 


a adquirir, pode ser uma conclusão errada. 
14 questão —- Tem experiencia prévia? 


NÃO — Adquira uma máquina económica e com vn manual de fácil utili- 
zação. 


SIM — Verifique se a tarefa em que pretend» ocupar a míquina está 
bem situada em relação às características desta, NSo se esque- 


ça que os milagres estão, de certo modo, ultrapassados! 


24 questão — em limitações de orçamento? 


SIM — Adquira um equipamento que possa crescer; que admita suficiente 
expansão de memória e que não obrigue a um grande investimento 
inicial. 


Não — Decida-se por um equipamento já experimentado e testado; para o 
qual seja possível encontrar “software” (isto é, programas) de 
diversa aplicação, e que não lhe traga surpresas em termos das 
possibilidades reais da máquinas 


3a questão — Uso final 
a 


Esta será talvez a questão a que se deve responder com maior clareza, 
e creia que na resposta, vai de certeza encontrar a máquina melhor a= 


daptada ao seu casos 


Por experiencia própria, sabemos que a máquina que possuí todas as qua 
liídades não existes 

A que possui as instruções poderosas para obtenção de gráficos de alta 
resolução, pode não ser ideal para tarefas comerciais; ou a que possui 
melhores características de cálculo, pode não ter possibilidades de 
tratamento de côr, etce 


A título de informação, daremos de seguida um resumo de característi- 
cas e preços aproximados dos microcomputadores, que são neste momento; 
distribuídos, e dos quais existe conhecimento prático: 


zx 81 ZX NEW BRAIN VIC 20 APPLE II 
SP BERUM 
Preço Basico 11 25 57 35 130 
Memoria Standard 1K 16K 3ZK SK 48K 
COR Não Sim Não Sim Opção 
Drive p/ Discos Não Micro Dr. Sim Sim Sin 


Caract. M/min. Não Sim Sim Não Não 


DE DEO 


Embora já tenham sido publicados vários artigos, com circuitos descritivos, em re 
vistas da especialidade, não tem chegado até nós notícias confirmativas do êxito 


de tais montagense 


O ebjectivo deste artigo é o da obtenção da inversãe de video, em termos de 


“software”. 


Deste modo poderá ser usada esta rotina, em vários programas, e podemos “chamar” 


a rotina quando for útil a sua execução. 


Um des processos a usar poderá envolver o uso da linguagem BASIC, o que ER 
sigo uma certa lentidão de resultados. 


Encontramos uma rotina em linguagem máquina, que pode ser introduzida m memérias 
até 16K (unicamente por causa dos parfmetros envolvidos), e que segue 08 objece 
tivos intentadose Erê 


Use o modo “SLOW". 


O pequeno programa que servirá para introduzir o otdigo máquina, e que será depois 
elímínado, pode conter números de instruções completamente diferentes, e é o se 
quintes 


10 POKE  16388,0 Comentário: 

12 POKE  16389,127 Dimensiona a meméria, de modo 
14 FOR I= 32600 TO 32624 a guardar espaço para a lin- 
16 INPUT 5 quagem máquinas 

18 POKE JI,N 

20 NEXT I 

22 NEW 

RUN 


L Quando o cursor aparecer, 1rá introduzir os seguintes valo 


res, sequencialmente: 
42,0014,.0064,6,22,126,254,118,32,8 ,9,120,254,0,32,9, 


24,6,198,128,119,35,24,237,201 


Esta rotina ficará alojada na memória, 


após o que poderá transferir outro progra- 


ma para a memória, a partir de uma cassete, ou escrever o seu próprio pregraná 


que nada ínterferirá com a rotina de inversão do vídeo 


Se quiser usar a rotina, 


mente: 


Exemplo 


Pode colocar esta rotina em qual 


trução. ça e 4 


PROGRAMA. « « « « INVERSRO. . DE. . MATRIZES 


E é 0) 
i 
eo 
30 
3a 
40 
45 
so 
po fa 
EG 
va 
se 
28 
95 
128 
105 
118 
115 
120 
130 
140 
158 
168 
170 
188 
190 
200 
210 
220 
230 
240 
Poti 
PAS 

Er 


LA 
Oro 


280 
290 
300 
310 
320 
338 


9000 PRINT ATO, O; 
9010 LET K = USR 32600 
9020 REIURN 


. ——— “á 





- — » “ 








em qualquer parte do seu programa, deve escrevsr previa- 


quer zona do programa, com outros números de íns- 


..—s + nd 


TEMPO DE EXECUÇÃO 





REM "MI" 

PRINT "ORDEM N= "; Matriz Ordem n 
INPUT N 3 
PRINT N 4 
DIM ACN,N) 6 
PRINT "ENTRADA DOS VALORES" lo 
FOR I=iTO N | 20 
IF I=6THEN CLS Jo 
PRINT "LINHA "51; | 40 
FOR J=iTO N 23 
PRINT * "4ºCOLs “dy 


INPUT ACI, J)> 

PRINT" = "5ACI, JD; 

NEXT J 

PRINT 

NEXT 1 

CLS 

FOR X=1TO N 

LET DI=AÇX,1) 

IF DI=BTHEN PRINT " MATRIZ SING.OU PIVOT=O " 
FOR Y=1TO N-1 

LET ACX,Y)=ACX,Y+12/D1 
NEXT Y 

LET AcX,N)=12DI 

FOR Z=iTO N 

IF Z=XTHEN GOTO 260 

LET ACZ, 1)=0 

FOR Y=1TO N-1 

LET KXZ, YD=ACZ.Y+1)-BXACK.Y) 
NEXT Y 

LET ACZ,N)=-BXACXN) 

HEM Z 

MEXT x 

PRINT " A INVERSA E a a 
FOR I=i1TO N 

FOR J=iTO N 

PRINT ACI, JD" » 

NEXT J 

PRINT 


NEXT T 


Tempo 
2s 
3. 

7 

26 


3més 


lo 
24 
56 


17 
14 
23 


INVERSÃO DE MATRIZES 


Este programa de Carl Ross de Portsmouth, Hampshire, inverte uma matriz real, assi 
métrica, dentre da própria matriz. 
O método usade É o de Gauss-Jordon, baseado rum algoritmo de LaFara, no qual os e 
lementos da diagonal principal são usados como “pivots”. Tal como está, o program 
requer um ZX81 com 16k, mas se as instruções Rem 6 outras similares forem retira 
das torna-se possível inverter uma matriz de 2x2 numa máquina de lk. 
Depeis de dar entrada a ordem da matriz, entram os dados,linha por linha,da esque 
da para a direita, O algoritmo de LaFara pode encontrar-se em “Computer Methods 
for Sciences and Engineering”, publicado pela Hayden em 1973. 
O programa não funciona se o elemento principal da diagonal principal for zero, o 
se um dos “pivots” se anular durante o processo de impresso. Quando isso acontec 
a situação pode ser superada trocando duas colunas; após a inversão, as duas li- 
nhas correspondentes devem ser trocadas ou vice-versa. Se a i-Ésima e a k-ésima a 
lunas tiverem sido trocadas, depois da inversão deverá fazer-se a troca da i-fsiz. 
e da k-ésima linhas. É impossível inverter uma matriz singular, ou seja, uma mã- 
triz cujo determinante seja nulos 
Q tespo necessário para inverter uma matriz aumenta maís ou menos proporciona mer 
te ao cubo da ordem da matriz, e o espaço necessário para uma matriz quadrada au- 
menta na razão indirecta do quadrado da ordem da matriz. Portanto, se tal cálculo 
for efectuado normalmente, a inversão de matrizes de ordem superior a três torna- 
-se extremamente difícil. Trata-se de um problema de considerável importancia em 
ciencias,engenhatia, construção, e em todos os campos em que a inversão de matri- 
zes é frequentemente um requisito prévio à resolução de certos problemas, 


cbd O 
ebd 1 


bd 3 


bd 4 


Di 


Ra e . 
a fé 
ER 


To ye 


Dl;D2;D3; = 1N914 ou 184148 






TR - NDM 2222,1711 


| O teclado de ZX81 funeiena per oentacte e é único medo de se obter “feedback” é obser- 


var o dcran sempre que se pressione uma tecla (para verificar se deu entrada). À fim 
de evitar este constante centrele, fei decidido generalizar um som sempre que uma te» 
cla seja tocada o que permíte ao operador obter uma ou mais linhas de programa sem ter 
que olhar para o écrane 


Este mítodo economiza muito tempo, principalmente quando se trata de grandes programas. 


Considere=se, Pe €X., que de carrega em “D”, À corrente na resistencia Rc corre pela tg 
cla D e alimenta a linha do teclado através do díodo Do. O computador detecta este nf= 
vel de voltagem, produz o caracter D e exibe-o no écrang detecta tambem uma alteração 
na voltagem através da resistencia Roe 


(este esquema foi oferecido por 
Rocha Barbosa ) 


ESCISID DE LARS 
ae DECICE LIDE E 
TECLA 1 PARA ESCREVER 
TECLA 2 PARA UMA EMENDA 
TECLA 3 FARRA LER 
TECLA 4 P/ ELIMINAR UM FARRGRAFO 
TECLA 5 PARA GRAVAR 
TECLA & PARA IMPRIMIR 
= : 
REGISTO DE TEXTOS 
TECLA 1 PARA ESCREVER 
TECLA 2 PARA UMA EMENDA 
TECLA 3 PARA LER 
TECLA 4 Ps; ELIMINAR UM PARASRAFO 
TECLA ES PARA GRAUAR 
TECLA 6 


PARRA IMPRIMIR 


=* — "4 OBSERVE AS: INSTRUÇÕES CONTIDAS 
NA ULTIMA PAGINA DESTE PROGRAMA | 


GOTO 3o0ao 
LET ag=" - . 


181 RETURN. 
-192 LET Ag=" 
DO. EM SETEM- 


pn) ALARME FOI LANCQ 
BRO. EM GENEBRA. EN 


4 


Lili had ,4 4 


TRE OS PRRTI-CIPANTES DRS CONFER- 


ENCIAS INTER-NACIONAIS DE 1965 
D TEMA DOS DEBATES ERA, NESSE 
ANO, +00 RU- BUT, O ANIHAL E O 
OMEH +), QUAN- 

123 RETURN 

194 LET B&=ºDO A FARTA CABELEIR 
AR ERANCA CE LOUIS COUFFIGNAL SE 

ITOU PARAR ANUNCIAR QUE IRIA D 

ISTRIBUIR- - DQIS. TEXTOS, UM DUS 
- QURIS INTEI-RAMENTE AUTOMATICO, 

FRODUZIDO POR UM CEREBRO ELCC 


d 


TRONMNICO DE 

2245 RETURN 

126 LET Ag="NONE COLLIDPE, E UM 

DITRO GE PRODUCARO Hunana, Es 

1 GoTO 3068 

155 LET ag=" 

191 RETURN. 

192 LET Ag=" a BLARME FOI LANCA 
DD EM SETEM- BRO, EM GENEBRA, EN 
TRE OS PARTI-CIPANTES pas CoNFER 
ENCIAS INTER-NRCIONAGAIS DE 1965 € 
O TEMA DOS DEBATES ERR, NESTE 
ANO. *+O0 RO- BOT,-O ANIMAL E O H 
DNEME). DuUGN- 


195 RETURN 
184 tET: As="DO 
A BRANCA DE 
RGITOU FARA ANUNCIAR DUE IRIA É 
IST RIEVIR DOIS EA Lit DOS 
QUAIS INTEI-CORENTE Trama, IDo 


ERoSUzIDO KeR ur CEREBRO ELEé- 


R 


os GETURN=" 
- 1906 LET A$="NOME CALLIOPE. E UM 
OUTRO DE PRODUCARO Humana, ES 


CRITO POR UH FAMOSO POETA FRANCE 
3 CONTENPORA-— NEO . 


as E 
ESSES: TEXTOS, 


- Tn ea = + 


Conzatxan rasa oa 


HOJE 


mm. Casca ens é 


| ELASSICOS- NO 


107 RETURN 
“GENERO E ALIAS RERMI 


188 LET A$= 
PRUEL MENTE CONSEGUIDOS, HERECE 


Ee de 


rem 


Lud, 


do cometa, 4 am. 


basalto a É 


trio 


de coil 


hq 


FRRIR CREBELEIR: 
LOUIS COUFFIGNAL SE: 


toi 


= 


= 


a dit to 


o bd 


199 PETUAN 
Ii LET mã= 
LUMA CUUTIA REGRADAUVE 
| COR DE LO-= TUS RECRRECIDA C 
ONSERUA A DLECÇARIA SOBRE ES 4 
TA ILHA FON- TaArnHosa. 
ELA ENSINA COM UM A 
TRASO UTIL E * 
111 RETURN 
112 LET AS=" PROPCE UARIOS CA 
MINHOS PORRA ALCANCOER à ESPER 
ADA SOLUCRO. À ETERNIDADE DURA. U 
Ma Hoso, OS MULTIPLOS PES DE 
UM CORRO QUE SE ERGUE COMO um 
A FORTALEJA SERPRO PRECIOSOS 


AMANHA PARA 
115 RETURN 
124 LET Ag=" 

IND ISPENSAUEL 


CONUENCER QUE E 
LAURPR HNETICULOS 


RHENTE À ILHA ONCE CRESCE A Ed 
LIA CA PRE. ASSIM A UIDA E FLUT 
DA. O GRANIZO DE HAIO ARRANCA 


A HERA PARA 

NOUO CENARIÕ. 
1135 RETURN 
116 LET Ag="UMA CORTINA DE PLAN 

TAS VERMELHAS GURRNECE A ETERN 


FAZER SURGIR um 


ob cadablilama. a 








IDADE. O OURICO BUBNCA PEN 
ODSAMENTE: O CORAL SONHA: AU! 
IBORA APÕDRE- CIDR SOBRE A QUA : 
L CAIU O NaR- TELO EXPCE OS CRY 
SAROS DEBAIXO “ É 
117 RETURN» j 
11a LET Aas=: DO ZINERO, ENSUA + 
NTO O TRIGO GEQHINP: Q HORSA ; 
OFEGONTE CHEGA EM FRENTE | 
DA FORTALEZA; E O ANFIOKO VE O! 
SOL EM cada DIA DO NES. | 
TODOS GOSTAN GE 
PINTAR A TER-“ 
41132 RETURN 
129 LET Aagd=" RA. j 
HAIS TARDE, SOBRE A: 
CASCA UEGE- TAL, O PIRILANPO Ss 
ACONSELHA- -NOS A VENCER A o 
CARNE. j 
“a sê E . E E II É k 
121 RETURN 
122 LET ag=" 
RD LoNGoO Das nurerH 
RS NosIitacas DE ORQUESTRAS DE 
DREPITAS DARDEJONDO BS SURS 
DRELHAS DE CHUMEDO PaRaA A LU 
z A ESPERA DE uma cas 
ICIA CORPO “a 
125 RETURN 
124 LET Ag=" com a ze 
O SORRIS UE CEIFA 
CARBECAS VERGA E 
9 ODOR Db om. 
AS EXPLO S DO TEM 
PO. FRUTOS SENPRE MoDUROS P 
aRÃ q MENI2DTIA! 
125 RETUBN 
126 LET A$g=“E AS Tuas MBos DE Cc 
HUUA SOSRE OLHOS AVIDOS ; 
FLORESCENCIA FECUND : 
ANTE DESENHAUVAM CLAREIRA- 
S NO MEIO DAS QUAIS um PAR SE + 
BEIJAUA. EIA DE BOM TENPO; 
PRINAUERAS * j 
127? RETURN : 
125 LET G&= 
MINOSAS 
HS . 
TUFOS DE 
RNAREM OS 
129 PETURN 
130 LET A$=" OS nervos co SIL 
E ENTÊ SENTES DE UM LE! 
ENT os Ls NT a 
PRE - com HA GEGNDE E 
CRITA CARNAL EU RHO. “= 
E ara RR = 
131 RETURN Re ; ã 
432 LET Ag=" — A 
(IN *A LITERATURA Cs 
IBERNET IICA DE FEDRO SARBOSA)= 


RETURN 
LET Ag=" 


RETURN 
LET gas =. 


145 
1dd 


RETURN 
LET Ag=": 


iás 
1418 


147 RETURN 
148 LET As=" 


1495 RETURN 
159 LET Ag=" 


151- RETURN 
994 CET A-= 198+PEEK 
(1158397) +2505 


591 RETURN, Ro SR 
“P>26 T THEN core 2sse 


es + = 5 a amar ==. 
r af 


UU IDID US) 
fetos pod pd pes pa 
LU Gp=1Onin de Galo 


Tt TE nt EEE ia at em Tae 


Qu 
vit fot pa 


Vu su poi 


Quo t+ 69 | 


SU ul) 


Co dy 


E POKE ALT, PERK- (n+er s128 
Es IF INKEV$e>' -. THEN. GOT 


369” IF ENKEV$="= THEN SOTO' “485 


19% LET AS=INKEYS - 
IG. EE agesuno THEN Goro 2598 


é =“>4 THEN GOTO 48 
(36 LE A$=4>4 THEN GOTO isgg 


(165396) +PEE 


A 


Ea E PA VR RP A Pg 


as : 
AE 2e, Cx A  epaRecRaro És 


Eos 


4 Léia usdoldia tio liattota. 


u 


“ug 


entadidaars 


rem metem ee nt ae o am im se ma 


a IF CODE (A$g)+>55 THEN Soa 1: 


+ — 2» - 4 — — ué + | ds te é O i 
12992 coro iõeo ê 
1500 FasT 
1319 LET €Cs=2 

1329 SCROLL 
1332 FOR J=1 TO E2 
1349 POKE 16501 +J+ 23 2+P:209,FEE ;í 
K (A-33€J) 

1359 NEXT JU 

1360 LET L=t+1 

1370 IF L=7 THEN Gosus 958 
1380 IF L=7 THEN LET t=1 
1590 SLOU 

1410909 GoTo 13258 | 
1509 PRINT AT 214,16 RS dm 
1519 IE INKEvV$&<>º" THEN GOTO 151 4 
a E 
1522 IF INKEvY&="" THEN GOTO 1520 : 
1538 LET A$=INKErS 
1540 PRINT AT 21.16; ae É 
1550 GOSUB 908 

1550 POKE A+C,PEEK ias+0:-125 

1570 IF Ag="5" THEN LET C=T-1 
1550 IF Aj="5" THEN LET C=D+1 
1599 IF Ag$g="9" THEN LET C=0+5 
1680 IF C<i OR D>32 THEN LET C=1 
1618 IF Ag=UNº THEN LET L=2 

16520 IF ARA$="Nº THEN GOSUB 939 
1539 IF Ag$g="7" THEN LET P=P-2 
1E40 IF Ag="7" THEN LET L=1 

1658 IF A$="7" TnEti GOSLB 958 
1550 IF A$g="5" THEN z0gotL 

1670 IF A$='5" THEN LET L=t+1 3 
1AS0 IF L=7 THEN GOSUsS 238 * po 
1590 IF L=7 THEN LET Lat, CRF 
1790 PDKE A+C,PEEK (Aa+C)+125 | 
1719 IF Ag=">" THEN coTo 1974 4 
1729 GOTO 15600 

2999 CLS 

=0a9 PRINT TRE F;"REGISTO DE TEX 
TOS” 

3012 PRINT E 
3028 PRINT “TECLA 1 PARRA ESCREVE - 
Re . 

30208 PRINT “TECLA 2 PARRA UMA EME + 
NDA % 
3048 PRINT “TECLA 3 PARA LER“ 4 
3950 PRINT "TECLA à P4 ELIMINAR 
LM PARAGEGEO ! 
cosa PRINT VTECLA & PSRA GrauARr É 
sa78 PRINT “TECLO & PARA INPRIHI- 
3108 INPUT Ag 
351182 IF As=“1" THEN GOTO 1098. 
3120 IF ARã='2" THEN GOTO 3208 = 
3139 IF A3="5" THEN Goro 55928 ! 
5140. IF Rg&="4" THEN GOTO 46998 
5159 IF Ag="5S" THEN Goro soosa = 
3160 IF A$="6" THEN GOTO 4508 2 
3209 CLs 

3219 PRINT TRE 15; "EMENDA! 

Sesa PRINT AT S,7:"“DE QUE PARAGA) 

Fato 4 

3239 INPUT A 

3240 LET P=A-4. i 
5254 LET Ag="NT : 
32609 LET C=1 
3º70 Goro -15180. E j 
3588 LET F=9 ida : 
35102. GOSUB 916 ; t 
352% IF INKEY&="" THEN GOTO 552e | 
3538 LET P=P+5- ; 
3540 GOTO 55186 i 
48000 CLS 
49186 PRINT TARA. 10; “EL IMINACAO". 
40209 PRINT 
4030 PRINT TAS 6; “DE QUE PARAGRA : 
Eos à da 

48046 INPUT P: - & ent 4 
4959 PRIM "USE A TECLA Rr 
4055 PRINT “P/ ELIMIrIAR O FARAGR : 
RFO “:P : 
LORD TABU 2 

Ed et Es ANS E E Sr “Liu cues 
4075. FAST - - é 4 
4989 FOR. J=1 TO 19>5- 8 =. 
412059 POKE 165353+J+P+295,8 el 
4190 NEXT d- E io aa 
4105 SEOUT é 
4118 LET P=Pp+1- =.— ER RE, 
412% GOTO 4858 ; É 
“45938 CLS t 
4510 PRINT “INDIQUE auaL O” viTIm ' 
A PARASRARR ale qundE Ds So 


i 
' 
é 


PRINT “GUuE QU [ama .. 
INBUT a E ER SIR LEI 


LS 
PRINT AT 416 ps . 
ERANT OT. p19; IMPRESSAO: 
GOSUB J:2+100 Ses... 
LERINT AG: cs seção, 
ia a Me 

PRINT AT 10, 10; VIMPRINIDO" 
EpTo eSdo j PRE FERIAS 
PRINT Tas 8; "LIGUE o eRravaD 


PRINT 


A 


 PRINTLTRS Si dEpDIs- NEUL IN . 
“EnBur R$. SE ERRA 

; Mp Erg t 

CE A dT ERES PIT ia 

EE ue" As. ExTO RARE 


GOTO TEA 
REM «REGISTO DE TEXTOS” 


O PROGRAMA “REGISTO DE TEXTOS” FDI ADAPTADO IX LIVRO ..cccccs 
eeco THE SINCLAIR ZX 81 PROGRAMMING FOR REAL APPLICATIONS eco 


optamos por transformar este programa, em vez de traduzir algum dos 
que são publicados nas revistas da especialidade, dado ser bastante 


completos. 


INSTRUÇÕES $ 


As strings que possuem espaços em branco, são para reproduzir assim 


mesmo, dado que o programa necessita deste espaço reservado. 
Ou seja, linha 100, contem 6 linhas de 32 caracteres em branco ( máximo). 


As strings iniciais linha lo2, lo4, 106, etc. contêm o texto que queremos 


gravar e usar ou alterar posteriormente. 
Às linhas 134, 136, 138, etc. significam apenas espaço que queremos reser- 


var para uso posterioro 


11 


INSTRUCÕES: 

ESTE JOGO CONSISTE EM ATINGIR O “X” UTILIZANDO AS TECLAS E do o 

ULILIZANDO A TECLA “6” A SUA NAVE DESLOCA-SE PARA O CIMU DO ECRAN » À TECLA *7º Ê UTILIZADA 
Para À SUA NAVE DESLOCAR-SE PARA BAIXO ; E POR ULTIMO A TECLA “8” SERVE PARA DISPARAR . 


REM CLUBE, 2,D0. cone JODO sv Ls SER 

REM "LASER" 

PRINT AT 9,B;!-=== =... nm E 

PRINT AT 10, 13: "LASER" 

PRINT AT 11,0;!-===..... nm R 

PRINT AT 19,26/"109" 

PAUSE 208 

CLS 

LET A=0 

LET J=200 

LET K=18 

LET G=8 

LET X=INT cRHDX19)+2 

LET A=A+1 

IF A=21THEN GOTO 268 

LET Y=30 

PRINT AT K,O:CHRS 130;CHRS 128;AT KoYy mM 

108 IF J<BTHEN GOTO 159 Ea 
110 IF INKEYS="7"THEN LET K=K-1 
120 IF INKEy8="6"THEN LET Kak+1 

130 IF INKEY9="S"THEN PRINT AT K,2s eotoaoo ooo ooo 

1429 IF INKEy$="S"THEN LET J=J-1 

150 LET Y=y-1.5 

169 IF Y=3THEN LET G=G+1 

170 IF G=S5THEN GOTO 240 

189 IF Y=3THEN GOTO 58 

1980 IF IMKEY$S="9"AND K=XAND Y<21THEN GOTO 229 

288 CLS 

218 GOTO 90 

220 PRINT AT XxX, Y+1;STRS 189 

230 GOTO Se : 
249 PRINT "DESTRUIDO" 
268 PRINT "VOCE GANHA" 

270 PRINT "FUEL E''sJ 

275 PAUSE 200 a 
276 CLS E 
288 GOTO 1 
39200 SAVE "LASEr" 

2319 GOTO 1 
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LET N=4 


de do 


55 PAUSE 1860 
BO LET AS=INKEYS$ . Ea 
“se 6S PRINT ATO 10,0; 0". : 
O IF ="2" A Z=0 On aAs="1: 
M=ê tem “* BND Z<> O THEN GOTO 65. 
AT m,0;" a : S LET M=M+2 
AT 26-4,0600 se coTo 28 
IF M=10 THEN S76P ES PRINT AT 42,2;N ; 
X=INT. (RND+:20) : 90 LET N=N+1 
W=INT (RND520) ss GOTO 20 
=INT (RND*2) Ê 
AT 10,0; X; est mts; x 


O PROGRAMA CUJA LISTA SE APRESENTA FOI PREMIADO NUM CONCURSO 


ORGANIZADO PELA REVISTA BRITÂNICA 


” SINCLAIR USER *”, DESTI- 


NADO A SELECCIONAR UM PROGRAMA SIMULTANEAMENTE DIDÁCTICO E 


LÚDICO QUE PUDESSE ” CORRER ” NUM 


SINCLAIR ZX81 COM 1K RAM, 


NOTE-SE O EFEITO CONSEGUIDO A PARTIR DE UM PROGRAMA DE DIMEN- 


SÃO TÃO DIMINUTA. 


Er ta E ” EE qi Tio a + E 
E | : PERDE 
ESTE PROGRAMA É UMA BOA DE=-  “ akin. rio 
MONSTRAÇÃO DO USO E DAS POS- SHE RR Le a tido ” 
a, É 4 : a fr RR ' 
SIRILIDADES DA FUNÇÃO TAB, QUE: Cm ga to porct Vo 
E UTIL QUANDO COMBINADA COM O el da SETOR a e! DE 
COMANDO PRINT. E ae po ap ta ão 
AS LINHAS MAIS IMPORTANTES DA. É 5, o ad ', 3 
| Selado Sm Ed EA 4: 
ELABORAÇÃO DO PROGRAMA, SÃO | qu iiicto Ei . E. 
DE 120 A 190 E CUJO EFEITO É | tí. as : o E 
1. lie 
LANÇAR “ FOGUETES” NO ESPAÇO nto Jd nb id, 
SECESSIVAMENTE. E 2 *< ERA 
' É cal Nov xt b. E O. 
a REM PEQGUETE SS + E e 
2s DIM AS(S,S) Us cm de, 
&7 SCROLL are e Disso a so Fio io 
3a FOR -J=i0 TO1 STEP.<4." 
42 PRINT TRE 3EJ;S 4 Sicas 
se FOR A- TO vas e: > % & 
“'GA.COROLE.: ai SRS MES tds 
65 NEXT. a ma Piva 94 Pó Ea Palio cwpelo “ 
PO, MEXT Ca) Eesti a is, ER 
dr 4 e RD di prt E) Rd GR 
te LET & A ng epa: 5 
73 LET AS(S) =" pedem 
74 LET F$i4)=" BR ADE À 
75 LET A$(5)=" >x<-: é 
9% LET G=INT (BNB 125) 64, 
SE Coapbee TS ; 
Aa fi Ag sos; Ás em tas 
E orn 
* 1386 NEXT R au 
"AGR ET S>acE 0/3 os betoe 
ye: O FOR P-1 TO SPACE PEA ; 
| EB PRINTO perros a: po | 
“ 200 NEXT Rs 
, &16 GOO do 
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PROGRAMA "FACTURAS" 2x 81 


LOG-PORTO-ABRIL 1982 APOS INTRODUZIR O PROGRAMA E USAR 
O CUMANDO “RUN”, QUANDO QUISER 
TERMINAR, RESPONDA À entrada da 
sopas ACTURA" QUANTIDADE : P e aparecerá no 


) 
3 
4 CLS ecran, a respectiva factura, 
S PRINT "FACTURA N.'" 
6 INPUT N 
? PRINT "DATA 0/00/00" 
8 INPUT Da 
9 GOTO 1008 

18 LET F=q 

11 LET ITT=Q 

12 FOR I=iTO 12 

13 CLS 

15 PRINT "ENTRADA DA QUANTIDADE" 

28 INPUT QqI)> 

25 IF QCID=0THEN GOTO sao 

26 CLS 

38 PRINT "ARTIGO" 

35 INPUT AMcI)> 

36 CLS 

429 PRINT "PRECO" 

45 INPUT P<I> 

sa PRINT “IMP. TRANS. a ? ...S Ed Nº 

62 INPUT ya 

62 CLS 

64 IF Y8="S"THEN LET IT=. 15xQc I)xPc 1) 
65 IF Y8="S"THEN LET MCID=QÇIDXPÇIS+IT 
6? IF Y8="S"THEN GOTO Bea 

?O IF vYa="N"THEN LET MC Ima IDKPC IS 

ro CLS 

89 LET TC IdeTcID+exCI) 

83 LET FeF+TCI> 

86 LET FmINT Co S+FX1B) 

87 LET E=F-13 

98 NEXT I 
sal CLS 
sos FAST 
S10 PRINT AT 2,8; "FACTURA N."sTRB 10;N;TAB 16,08 
S20 PRINT AT 1,0,DA; TAB 16/EsS 
5380 PRINT AT 3, 16,Pg 


S4u 
550 
555 
560 
s70 
575 
seu 
s98 
592 
593 
594 
593 
s96 
ao 
ss8 
539 
600 
623 
685 
688 
689 
618 
630 
648 
[Eeju 
e18 
820 
830 
840 
1000 
1001 
1810 
18020 


1068 
1081 


1098 
18092 
1894 
1096 
12098 
11080 
4210 
4820 
4030 
4040 
se0s 
s210 


FOR I=BTO 62 
PLOT 1,32 14 


NEXT 1 
PRINT AT 6.2) "QT"; TAB 6) "ARTIGO": TAB 14) "PR'STRB 21) "DC"; TAB 
FOR ImPTO 62 24; ºTOTAL” 
PLOT 1,29 
NEXT 1 


FOR I=iTO 10 

IF Q(I)=BTMEN GOTO 609 
LET xCI)mQCcI)> 

GOSUB 4000 

LET Quem 

LET XCI)mPCI) 

GOSUB 4000 

LET PaM 

LET TCID=INT C.S+TC 12H10) 
LET XC1>D=7C12710 

GOSUB 4000 

GOSUB SBBo 

NEXT 1 

PRINT AT 19,0)“1.T.m"sITT 
PRINT AT 20,14; "TOTAL= "; TRE 24,F 
INPUT Y8 

IF Y8="S"THEN GOTO 3 
STOP 

LET ITT=1ITT+1T 

LET 1TT=INT C.S+ITTXID) 
LET 1TT=1T7/10 

coTo ea 

DIM TC10) 

LET Imi 

DIM Xc18) 

DIM Q< 18) 

DIM ASÇ10,7) 

DIM PC1D) 

DIM T<18) 

LET TCI>=0 

LET ITT=0 

LET F=Q 

CLS 

PRINT "NOME" 

INPUT CS 

CLs 

PRINT “ENDERECO" 

INPUT EM 

CLS 

PRINT "CODIGO POSTAL” 
INPUT PS 

CLS 

GOTO 10 

LET V$=STRE XXI) 

LET M=LEN vê 

IF INT XCI)=VAL VETHEN LET Mam+2 
RETURN 

PRINT AT 7+1.6-Q;QC ID) TRE 6:ASCIDTRB 20-P;PCI>;TRB 32-M; VB 
RETURN 
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Termos usados por quem 
usa computadores 


ADDRESS - Número identificador de uma posição de memória 
Exet 62768 


ALUMINESED (paper) - Papel de impressão com uma superfície metalizada. Os carao- 
teres aparecem escuros, após a passagem de corrente eléctrica dirigida da cabe- 
ça impressora para o papele 


ASCII (American Standard Code for Information Interchange) = Código que reprem 
senta letras, números, etc. com base em 128 permutações de um código (7-bit). 


ASSEMBLER = Programa que converte as instruções mneménicas de baixo nível da lin 
quagem “assembly” em instruções de linguagem máquina binária, necessárias para 2 
perar com um processador central. 


BASIC (Beginners" All-purpose Symbolic Instruction Code) - Linquagem de programa 
ção de alto nível, desenvolvida no “Dertmouth College”, EsUsÃs, e bastante vulga 
rizada. 


BATCH (Processing) - Método de programação no qual um grande número de transace 
E é agrupado conjuntamente antes do processamento (de tal modo que o controle 
dos totais, etos possa ser efectuado), passando depois, em grupo, por vários es 
tados de processamento. Este foi o método original do processamento de dados em 
serviços comerciais, contrastando com o processamento de interaeção e pedidos. 


BAUD - Proporção da transmissão de dados, representando os bits por segundo ; 
apesar de não ser inteiramente correcta, é vulgarmente usadas. 


BCD (Binary Coded Decimal) - Sistema de 4 bits para representar os 10 dígitos de 
Cimai so 


BENCHMARK - Trabalho de programação uniformizado, usado para medir as velocidades 


- relativas de diferentes processadores, 


BINARY - Sistema de numeração com a base 2, usando os dígitos P e À em ves das 
séries decimais Q a 9, Todos os computadorss digitais funcionam com dados e ing 
truções apresentados em números binários. 
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BIT - Dígito bíndrio (abreviatura). Tum que ser G.ou le 


BLOCK - Sequencia de dados - palavras ou “bytes” = tratados como uma unidade, eg 
pecialmente quando se trabalha con gravação magnéticas 


BOOT - Instrução ou programa muito pequeno, que 4rá iniciar um sístema de progra 
mação de computadores. 


EPS (Bits por Segundo) = Proporção da transmíssão de dados entre dispositivos. Ex: 
300 ps é geralmente o valor para alguns termínais, equivalente, grosso modo, a 
30 caracteres por segundo (ops ou chps). 


BUESLE MEMORY - Dispositivo de menória, compacto e com acesso aléatório de alta 
capacidade, que retém dados usando técnicas do domínio das forças magnéticase 
A retenção de dados contírua, mesmo apés a fonte de alimentação ser desligadas 


PUFFER (Separador) - (1) - Área da memória destinada À retenção dos dados a se- 
rem transferídos entre diíspositívos a diferentes velocídades - pe. €X. O proces 
sedor rápido e o teclado, a impressora ou o dísco que são mais lentos. 


(2) = Dispositivo electrénico existente no percurso do si= 
nal, permítindo aos sínais passarem numa certa direcção, e destinado também a 
deter voltagens inversas indesejadas, que poderiam danificar o aparelho emissor. 


BUG - Erro em “software”, 


BUS (ou BUSS) - Basicamente significa um conjunto de condutores, comum & várias 
partes de um computador, e o número de cansis de acesso = ex.t Um “bus” de 16 
bits enviando informação para 64K posições de menória, ou um “bus” de Z0 envie 
ando um “megabyte”, : 
Actualmente, “BUS* é geralmente identificado com o modelo de conecções para as 
fichas e encaixes através das quais as unídades de opção (ex. mais memória) po- 
dem ser ligadas ao computador. 


BYTE - Unidade de dados com 8 bits de extensão. 


CARTRIDGE - Suporte protector de fita magnética (uma variante da casusto: funilio 
ar) ou dísco. 


CENTRAL PROCESSOR - “Cérebro” de um computador, no qual as instruções do progre- 
ma corrente são efectuadas. 


CHAIE - Processo através do qual um programa de computador segue, avtomaticemen 
te, um OutrOs 





SOFIVARE EM DISTRIBUIÇÃO PARA O SINCLAIR ZX - 81 


ESSES vs ESG SAND SE SG LS DIDO LU HUVESS = 6 


PROGRAMA 


Contas Correntes (16K) ... 20 Contas 
Contas Correntes (32X) ...50 Contas 
Contas Correntes (48K) .. i00 Contas 
Contas Bancárias (16K) ...15 Contas 
CAIXA (300 lanç/ 6 saldo) (16K) 
SALÁRIOS (16k) (20 Empregados) 
SALÁRIOS (32K) (100 Empregados) 
ANÁLISE DE VENDAS (200 Produtos) 
RESUMO DE FACTURAS (32X) (150 Clientes) 
STOCKS (16K) (200 Produtos) 

STOCKS (32K) (500 Produtos) 

ANALISE DE INVESTIMENTOS 

PERT / CPM (Análise de Redes) 
ESTATÍSTICA 

Zk TEXTO / COMPUTACALC 

JOGOS (3 Cassétes Diférentes) 
MATEMÁTICA (4 Cassetes Diferentes). 


PREÇO 


3000900 
2500900 
soco oo 
2000900 
2000900 
2500900 
3000900 
1500900 
1500400 
1000900 
1500900 
1ocogoo 
1800900 
1000900 
scog00 
800900 (Cada) 
8COgOO (Cada) 


Je 


ha pop ES PIDACIICAS 


Para alen dos cursos de Progranação BASIC, que funcionam 
norma leente na LOG, e que aotualmonte estão distribuídos 

por trde níveis distintos ds conhecimentos, irão ser ini- 
cíedos CURSOS por CUXRESPONDÊNCIA, a peúído de várias pessoas 
que não têm possibilidade de frequentar os cursos pessoal- 
mente, 


O8 cursos que vão funcionar serão 1 


1 - Programação eu Linguagam BASIC 
2 - Programação em Linguagem Máquina Z 80 


O número de lições está previsto que seja entre 25 e 30 
lições semanais, e o preço será de esc. 5 EMUPMT. 


No caso de possuir interesse por qualquer um destes cursos, 


escreva-nos, que lhe remeteremos informações detalhadas. 


9) InscrIÇÃO no CLUBE 7-0 Z-. 
MORE COCO CCC COCO LOCO COCO CO DO Co sc tat0o000 00 
ENDEREÇO COCCeDCo score concerne OOO eta 0 | 


COI-PUTADOR TIPO CEA EASTER 


PROFISSÃO EE AEE EEE AAA dd 


SUPSCKIÇÃO ANUAL esc. 1500900 (page em prestação) 
Pagamento ANUAL coeceso ou TRIMESIRAL cccvces 


Incluso cheque nP cococoroco rc rcococeoefctoceseos 
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